home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / tex / tpp410n.lha / TPPGlobal.lha / rexx / tpl / StartDVIPrint.tpl < prev    next >
Text File  |  1993-01-17  |  2KB  |  69 lines
  1. /* Start DVIPrint - Macro */
  2. /* Kick 2.0 only */
  3.  
  4. options results
  5.  
  6. binary='TeX:bin/DVIPrint'
  7. output='>"CON:0/16/700/440/DVIPrint Ausgabe Fenster/AUTO/WAIT/ALT/INACTIVE/SCREENTextPlus"'
  8. hailstring='DVIPrint Optionen'
  9. wbtofront='TeX:bin/ptofront'
  10. dviopts='-f 1 -t 100 -h 2.20cm -v 0.00cm -p '
  11.  
  12. address 'TextPlus'
  13.  
  14. /* get name of current file */
  15.  
  16. 'GetName'
  17.  
  18. filename = result
  19.  
  20. /* strip off extension */
  21. if RIGHT(filename, 4) == '.tex' then do
  22.    len = LENGTH(filename) - 4
  23.    filename = LEFT(filename, len)
  24.    end
  25. printopts =  dviopts filename
  26.  
  27. 'RequestString' hailstring'\\'printopts
  28. printopts = result
  29.  
  30. n = WORDS(printopts)
  31. fullname = WORD(printopts, n)
  32. n = LENGTH(printopts) - LENGTH(fullname)
  33. printopts = LEFT(printopts, n)
  34.  
  35. PARSE VALUE namestruc(fullname) WITH ivol idirs ibase .
  36.  
  37. IF fullname == "" then empty = 'true'
  38.                   else empty = 'false'
  39.  
  40. IF "" == SUBSTR(fullname, 1+ivol+idirs+ibase) THEN DO
  41.         fullname = fullname||".dvi"     /* supply a default extension   */
  42.         ibase = ibase + 4
  43.         END
  44.  
  45. IF 0 = ivol THEN DO
  46.         direc = PRAGMA('d')
  47.         IF RIGHT(direc,1)~='/' & RIGHT(direc,1)~=':' THEN direc=direc||'/'
  48.         fullname = direc||fullname
  49.         DROP direc
  50.         END
  51. ELSE DO
  52.         direc = SUBSTR(fullname, 1, ivol+idirs)
  53.         IF RIGHT(direc,1) = '/' THEN DO
  54.             n = LENGTH(direc)
  55.             direc = LEFT(direc, n-1)
  56.             END
  57.         call pragma 'Directory', direc
  58.      END
  59. DROP ivol idirs ibase
  60.  
  61. /* valid filename/opts ? */
  62. if empty = 'false' then do
  63. /*   address command wbtofront 'Workbench'*/
  64.    address command binary output printopts fullname
  65.    end
  66. else
  67.    'Display' 'DVIPrint --- Abbruch'
  68.  
  69.